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MAILSNOTIFY NOTIFY LOGGED ON USER OF NEW MAIL 16-Sep-1984 01:13 +66 VAX=11 Bliss=32 V4.0-742 1 
14-Sep-1984 12:42 DISKSVMSMASTER: CMAIL.SRCINOTIFY.832; 479 ea 


H 1 poe) 8 MODULE MAILSNOTIFY( STITL Eogebone yee LOGGED ON USER OF NEW MAIL 

: ¢ Oe IDENT = 

; 0005 1 BEGIN 

; 4 0004 1 

; 5 0005 1! 

s § BOOS : pp aypengmergen aces ate pean, 
° Hd * 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
; 3 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
3 19 Baie : ‘* ALL RIGHTS RESERVED. * 
° iM ® 
$ \¢ Bolg 1 !'® THIS SOFTWARE as FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 1 01 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 14 0014 1 !* INCLUSION OF 4 ABOVE COPYRIGHT NOTICE. THI RE OR ANY OTHER * 
3 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 4 pote : ie TRANSFERRED. * 
3 '® * 
3 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; «& boss 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $3 b054 : > CORPORATION. * 
° : « 
:; $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; @& 00246 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
. ae 0025 1 !* * 
; & 0026 1 !* * 
: eo? QO27 1 eee area eee ERRATA AEA AEA AAA AAA AAA AAAAAKEAAER ERATE 
; ee 0028 1! 

;: 2 0029 1 

; 0030 1 !++ 

3 3 tt } FACILITY: VAX/VMS MAIL UTILITY 

3 $2 0038 : ABSTRACT: Notify logged on user that new mail exists 

: 35 0035 | ENVIRONMENT: NATIVE/USER MODE 

; «37 0037 1 ! AUTHOR: Len Kawell, CREATION DATE: 21-APR-1978 

3 38 0038 1! 

7 ae 0039 1 ! MODIFIED BY: 

:; 40 0040 1! 

: 641 0041 1! v03-007 o. 90255 Benn Schreiber 28-Dec-1983 

: $¢ one : : rint time in message if enabled in system flags 

sb 0044 1! v03-006 BLS0241 Benn Schreiber 26-Sep-1983 

: r# ohee : Enable cluster SBRKTHRU. 

; (4? 0047 1! v03-005 gL $0229 Benn Schreiber 16-Jul-1983 

3 $8 7k : t CARCON in SBRKTHRU. Set hoondeas’ eg MAIL 

: 50 0050 1: V03-004 BLS0224 Benn Schreiber 2=Jun-1983 

: 23 th ; Use new SBRKTHRU service 

: § oes 1 i v03-003 pL soe}! Benn Schreiber 13-Mar-1983 

: | «54 0054 1! Raise/drop OPER/WORLD privs around this routine. Pass 

; 2 B32 : in as an argument the sender's name. 

; §F 0089 1 i v03-002 BLS0197 Benn Schreiber 99-Dec-1982 


(te 


1 
/MAILSNOTIFY NOTIFY LOGGED ON USER OF NEW MAIL b- -1984 213: VAX-11 Bliss-32 V4.0-74 Pa 
You=b00 Vez8eb=13RE 95:13:38 OTe blGmASTERSCMAIL.oReINoTIFY.B3221°%° (15 
is 28 R28 ! Use MAILSQ_FULLUSER to get personal name 
60 060 1 v03-001 BLS0177 Benn Schreiber 21-Jun-1982 
3 1 Use symbolic values for username length. Tell node name if 

3 : translation for SYSS$NODE exists. | 


Sheen ; ; 


1 
1 


MAILSNOTIFY NOTIFY LOGGED ON USER OF NEW MAIL 1b-5e -1984 01:13: VAX=11 Bliss-32 V4.0-742 Page 3) 

Yout808 1 7300-1382 93:13:38 DISKSVMSMASTER: CMAIL.SRCINOTIFY.B32;1 : (2) | 
is 65 64 1! | ; 
Pes 65 1 ! TABLE OF CONTENTS: ‘ 
1: 6 66 1 | | ; 
> (68 67 1 | ; 
t 3 O69 1 | INCLUDE FILES | 3 
is oo $96 a : 
13 Le 0071 1 LIBRARY ‘SYSSLIBRARY:LIB'; ‘ 
ee 0072 1 REQUIRE 'SRCS:MAILREQ': | ; 
> (7% 0218 1 LIBRARY ‘LIBS:MAILDEF'; : 
; 2 0219 1! ; 
ee 8 QO 1 ! MACROS: ‘ 
Pee fas : 
; re 0 ; 1 : 
eae 0 7? ; 
3; 9224 1 ! EQUATED SYMBOLS: ; 
; 2 0225 1! : 
; «(Be 0 $ 1 LITERAL : 
; 0 1 BELL Ss = 7; ! ASCII bell : 
> B4 0228 1 : 
;. S594 1 EXTERNAL ROUTINE ° 
; 0230 1 MAILSGETMSG, 'Get message text ‘ 
Ps - oF 0231 1 MAILSUP_PRIV ‘Raise privileges : 
;. 6 0 3 1 MAILSDOQN_PRiv; ! and lower them : 
: «289 0233 1! : 
; 690 0234 1 ! OWN STORAGE: : 
; wi 0235 1! ; 
;. 0236 1 BIND ; 
tome ¢ | 0237 1 BELL_STR = UPLIT(BYTE(1,7)); ! ASCIC BELL . 
;  &% 0238 1! : 
; 95 0239 1 ! EXTERNAL REFERENCES: : 
; & 0240 1! ; 
; 97 0241 1 EXTERNAL : 
os aseg 1 MAILSGL_SYSFLAGS : S$BBLOCK, ! System control siege : 
: 99 02435 1 MAIL$Q_SYSNODE: $BBLOCK; ! Translation of SYSSNODE : 
: 
: 
: 
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NOTIFY LOGGED ON USER OF NEW MAIL 


oe 


i FUNCTIONAL DESCRIPTION: 


INPUTS: 


OUTPUTS: 
en 
BEGIN 
LOCAL 
MSG_BUFF : VECTORE 
MSG BUFF_DESC: $BBLOCK 
CLU_FLAG, 
STATUS; 


TE = 
~MAIL$SQ_SYSNODECDSC$W_LENGTH 
THEN SFAO(MAILSGETMSG((IF . 


MSG_BUFF _DESC, 
MSG_ BUFF _DESC 


OMDESC,0) 
MSG_BUFF_DESC, 


MSG BUFF_DESC, 
BELC_STR, .FROMDESC,0); 


wvwuvuvvD vUUUU 
COCO OCOCOSOOCOCOOOSOOOSCO COCO OCOCOOCOC COCO OCOCSCCOCOCOCOCOOCOCOCO OOOO OOOOOOOOO 
eg tet tert PIN Sy Se OA ht ee rt et tet et ae a et 


SBSeVSSRASLSSEN MEW 0 ODNOA VLAN 0 ODNAU EW 3 O OD NO UE WN OOONOUSE 


_FLAG = 0; 

“MAILSGL_SYSFLAGSL 
THEN CLO_FLAG = B 

MAILSUP_PRIV((1*S$BITP 

OR 1°$B 

: Send the message 

$BRK THRUW(MSGBUF=MSG_BUFF_DESC, 

SENDT RNAM 


=. 
SNDTYP=BRK$C_USERNAME, 
REQID=BRKSC MAIL, 
FLAGS=.CLU_FLAG, 
CARCON=Z%C'"', 


CLU 
IF SYSF_ 
RKSM 
OSIT 
IT 
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MAI 
(8), 
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dD 1 
16-Sep-1984 01:13:46 Vv 
14-Sep-1984 12:42:29 D 


GLOBAL ROUTINE MAILSNOTIFY (USERNAME ,FROMDESC) 


BELC_STR{MAI"$Q_SYSNODE, 


USERNAME = Address of username descriptor. 
FROMDESC = Sender's username descriptor. 


LSK_INBUFFSZI,! M 


32 V4. 
R 


Liss- 
MASTER: (MAI 


: NOVALUE = 


Loops through all the processes on the system, and if a process's 
user name matches the specified username, and the process is an 
interactive process, a new mail message is broadcast to the terminal. 


New mail message broadcast to user's terminal, if logged on. 


essage buffer 
Message buffer descriptor 


' Routine status 


-FR 
ELSE SFAO(MAILSGETMSG((IF .DTIM THEN MAIL$_NOT 


ELSE MAIL$_NOTIFY2 


RKTHR 
eR 


V$V_WOR 
ON(PRVS 


UJ 


LD) 
V_OPER)) ,0 


IFY 
0)) 


3: 
$2; Create message buffer desc 


40 


! Enable needed privileges 
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MAILSNOTIFY WOTIFY LOGGED ON USER OF NEW MAIL bse 1984 01:13:4 VAX=11 Bi ieee =32_ V4.0-742 5 
_v04-000 ta8e5=1984 43:3 DISKSVMSMASTER: (MAIL. SRCINOTIFY.B32; 1° * (3) 


| 
; 158 TIMOUT=10); : 
: 133 a MAILSDOWN_PRIV(); i | 
3 A V 14 3 
S481 2 * ~ sable privs as needed | : 
.TITLE MAILSNOTIFY NOTIFY LOGGED ON USER OF NEW MAIL : 
SIDENT \V04-000\ ; 
| <PSECT $CODE$,NOWRT,2 ; 
| 07 01 00000 P.AAA: .BYTE 1, 7 : : 
BELL_STR= : 
| .EXTRN MAILSGEIMSG, MAILSUP_PRIV ; 
-EXTRN MAILSDOWN PRIV, RAIL SCL “SYSFLAGS 3 
-EXTRN MAIL$Q_SYSNODE. SYSSFA : 
| JEXTRN SYSSBRRTHRUW ; 
OOFC 00000 .ENTRY MAILSNOTIFY, Save R2. R3,R4,R5,R6,R7 1 0244 ; 
57 000000006 00 9€ 00002 MOVAB MAILSGL_SYSFLAGS, R7 : ; 
56 000000006 00 9€ 00009 MOVAB SYSS$FAO; : : 
55 000000006 00 9€ 00010 MOVAB MAILSGETMSG, RS : ; 
54 E46 AF 9E 00017 MOVAB BELL STR, - : 
53 000000006 00 9€ 0001B MOVAB MAILSQ SYSNODE, R3 : F 
SE F7F8 CE 9E 00022 MOVAB 056(SP), : : 
50 67 01 02 EF 0002 EXTZV #2. a1, MAILSGL SYSFLAGS, DTIM : 0270 : 
6E 0200 8F B60 900¢¢ MOVW #512, MSG_ ESC + 0271 ; 
04 AE 0% a 9E 00031 MOVAB MSG BUFF, “RSG BuFF _DESC+4 : bere : 
63 B5 00036 TSTW MAIC$Q_SYSNODE 3 027 3 
2A 13 00038 BEQL 3$ : : 
7E D4 OO03A CLRL =(SP) : 0279 ; 
08 AC DD 0003C PUSHL FROMDESC ; 
| 53 DD 6003F PUSHL R3 : 
54 DD 00041 PUSHL F 
10 AE 9F 00043 PUSHAB MSG_BUFF_DESC F 
14 AE 9F 00046 PUSHAB MSG-BUFF ~DESC : 
08 50 £9 00049 BLBC OT 1 1$7 ; 
OO7EDF80 BF DD 0004C PUSHL #8314752 ; 
06 11 00052 BRB F 
O07EDE28 BF DD 00054 1$: PUSHL #8314408 ; 
5 1 FB 9003 2$: CALLS #1, MAILSGETMSG F 
50 DD 0005p PUSHL RO : 
66 7 FB O05F CALLS #7, SYS$FAO ; 
6 11 00062 BRB 63 ; 
E D4 00064 3$: CLRL = = (SP) : 0284 
08 AC DD 00066 PUSHL FROMDESC ; 
54 DD 00069 PUSHL R4 : 
OC AE 9F 00068 PUSHAB MSG_BUFF_DESC ; 
| 10 AE OF O06 PUSHAB nSG BUFF “DESC ; 
08 50 €9 00071 BLBC bie 4$~ ; 
OO7EDF88 8F DD 00074 PUSHL 14760 ; 
6 11 7A BRB 3 
007EDE30 F DD 7C 4$ PUSHL #8314416 : 
5 1 FB 00082 5$ CALLS #1, MAILSGETMSG ; 
0 DD 0008 PUSHL ; 
| 66 06 FB 00087 CALLS #6, SYSSFAO : 
| 


CC CO Cl lll ll ll lll lll LL ttt ttt ttle . = — 


ro 


} 
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MAILSNOTIFY NOTIFY LOGGED ON USER OF NEW MAIL =Sep-1984 01:13: VAX-11 Bliss-32 V4.0-742 Page 
Rieti 12-828-1 383 93:13:48 ST EKSUNGMASTERSCHALL GRE INOTIFY.83251 ° (38 
| 
D4 A 6$ CLRL = CLU_FLAG F 
| 05 67 f 5! BB #1, MAILSGL_SYSFLAGS, 7$ : § 
2 0800 E 3¢ ae MOVZWL ¥ O48, CLU_FLAG : 8 
00050000 8F DD PUSHL # $5480 ; 
| 000000006 00 2 FB 0009D CALLS #2, MAILSUP_PRIV : 
E 7C OOOA4 CLRO 7 ($P) + 0301 
| 88 toe ut : 
3 DD OOODAA PUSHL  CLU_FLAG : 
3 pp OOAC PUSHL : 
7E 2 7D OOOAE MOVO #2, -(SP) : 
04 AC DD 00081 PUSHL USERNAME : 
24 AE OF 90084 PUSHAB MSG_BUFF_DESC : 
7E D4 00087 CLRL -(SP) ; 
000000006 00 OB FB 90089 CALLS #11, SYSSBRKTHRUW : 
000000006 00 00 FB 000C0 CALLS #0, MAILSDOWN_PRIV + 0303 
04 000C7 RET + 0304 


; Routine Size: 200 bytes, Routine Base: $CODE$ + 0002 


ee) 
a eee 
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Elapsed Time: 
Lines/CPU Min: 444 
Neem Ait taal 17641 
Y Used: 87 pages 
cee ation Complete 


MAILSNOTIFY NOTIFY LOGGED ON USER OF NEW MAIL 18-se Sep-1984 VAX~11 Bliss-32_ V4.0-742 7 
| v04-000 300-138 93: 13: 38 DISKSVMSMASTER: CMAIL.SRCINOTIFY.B32; 39 * (4) 
3 163 0305 1 END ; 
164 0306 0 ELUDOM : 
, PSECT SUMMARY : 
E Name Bytes Attributes : 
: Library Statistics ; 
; a), Seer 1 RD crete Symbols oooeseo- Pages Processing : 
; File Total Loaded Percent Mapped Time ‘ 
; _$255$DUA28:CSYSLIBILIB.L32;1 18619 20 0 1000 00:01.4 ; 
; 7$255$DUA28:CMAIL .OBJ JMAILDEF .L32;1 457 6 i 26 00:00.4 : 
: | COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NOTIFY/OBJ=OBJ$:NOTIFY MSRC$:NOTIF Y/UPDATE=(ENH$:NOTIFY) 
Size: 200 code + 2 data bytes 
Run Time: 00:04.9 
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| 
SCODES 202 NOVEC.NOWRT, Rv , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
| 
| 
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DIGI 
VAX/VMS V4.0_ CONF 


TI 
AR 
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ENT CORPORATION 
ND PROPRIETARY 
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